home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CICA 1993 April
/
CICA MS Windows - April 1993.iso
/
unzipped
/
programr
/
catch
/
directs.wbf
< prev
next >
Wrap
Text File
|
1993-03-03
|
293b
|
15 lines
;Example Catch file
;Copyright Sean Batten
;Demonstrates GetWinDir and GetSysDir
Let win=GetWinDir()
Let sys=GetSysDir()
Let message=Join("The Windows directory is : ",win)
ok ("Directory",message)
Let message=Join("The system directory is : ",sys)
ok ("Directory",message)